11 REM WRITTEN BY ROCHE FAHLANEIGH
12 REM FORT COLLINS,COLORADO
13 REM ROCHE789 AT AOL DOT COM
80 DIM TC(1540)
90 DIM BC(1540)
100 DIM KG(388)
110 DIM QN(388)
120 DIM WZ(388)
130 DIM KT(388)
140 DIM DG(388)
150 DIM PS(388)
160 DIM CN(388)
170 DIM BK(388)
180 DIM SW(388)
190 DIM BW(388)
200 DIM AX(388)
210 DIM SH(388)
220 DIM CJ(388)
230 DIM CG(388)
240 DIM CC(388)
250 DIM CS(388)
260 DIM BR(388)
270 DIM BS(388)
280 DIM BH(388)
290 DIM BM(388)
300 GOSUB 20000
310 DIM RL(4,32)
320 GOSUB 21000
330 DIM PC(4,16,2)
340 GOSUB 22000
350 SCREEN 7,,1,2
360 GOSUB 23000
370 DIM FK(16)
380 DIM TK(16,3)
390 DIM FT(5,3)
400 GOSUB 24000
610 VS=1
620 RP(1)=1
630 RP(2)=5
640 RP(3)=1
650 RP(4)=5
660 FR=1
670 CI=300
2000 KB$=INKEY$
2002 IF LEN(KB$)=0 THEN 2010
2004 IF ASC(KB$)=32 THEN 2000
2010 KB$=INKEY$
2015 IF LEN(KB$)=0 THEN 2010
2020 IF ASC(KB$)=32 AND CI>2 THEN 2400
2025 IF ASC(KB$)=32 AND FS=1 THEN 2400
2030 IF ASC(KB$)=13 THEN 2200
2040 IF ASC(KB$)=27 THEN 30000
2050 GOTO 2010
2200 CI=CI+3
2210 COLOR 14
2220 LOCATE 19,18
2230 PRINT CI
2240 VS=VS+1
2250 IF VS=3 THEN VS=1
2260 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
2270 LOCATE 19,18
2280 PRINT CI
2290 GOTO 2000
2400 IF FS=1 THEN 2700
2402 IF HP(5)=4 THEN 2404 ELSE 2406
2404 GOSUB 25500
2406 IF WP=0 THEN 2500
2408 COLOR 10
2410 LOCATE 17,18
2415 PRINT " 000 "
2420 LOCATE 21,18
2422 PRINT"     "
2424 COLOR 9
2426 LOCATE 21,18
2430 PRINT WP
2432 LOCATE 23,2
2434 PRINT"                                  "
2436 VS=VS+1
2440 IF VS=3 THEN VS=1
2445 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
2450 COLOR 10
2455 LOCATE 17,18
2460 PRINT " 000 "
2465 LOCATE 21,18
2470 PRINT"     "
2475 COLOR 9
2480 LOCATE 21,18
2485 PRINT WP
2500 CI=CI-3
2510 LOCATE 19,18
2520 PRINT"      "
2530 COLOR 14
2540 LOCATE 19,18
2550 PRINT CI
2552 LOCATE 23,2
2554 PRINT"                                   "
2560 VS=VS+1
2570 IF VS=3 THEN VS=1
2580 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
2590 LOCATE 19,18
2600 PRINT"      "
2605 COLOR 14
2610 LOCATE 19,18
2620 PRINT CI
2622 LOCATE 23,2
2624 PRINT"                                   "
2630 GOTO 3000
2700 FS=0
2710 LOCATE 23,2
2720 PRINT"                                  "
2730 VS=VS+1
2740 IF VS=3 THEN VS=1
2750 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
2760 LOCATE 23,2
2770 PRINT"                                  "
3000 RANDOMIZE TIMER
3010 NA=4+(INT(RND*32))
3020 NB=NA+(INT(RND*32))+1
3030 NC=NB+(INT(RND*32))+1
3040 ND=NC+(INT(RND*32))+1
3100 FOR I=1 TO ND
3110 IF I=(NA+1) THEN 3600
3120 IF I=(NB+1) THEN 3600
3130 IF I=(NC+1) THEN 3600
3200 FOR L=1 TO 8
3210 FOR R=FR TO 4
3220 Z=RP(R)-2
3230 IF Z<1 THEN Z=32+Z
3240 X=PC(R,L,1)
3250 Y=PC(R,L,2)
3300 FOR P=1 TO 4
3310 S=RL(R,Z)
3320 ON S GOSUB 4000,4020,4040,4060,4100,4120,4140,4160,4200,4220,4240,4260,4300,4320,4340,4360,4380,4400,4420,4440
3330 Y=Y+24
3340 Z=Z+1
3350 IF Z=33 THEN Z=1
3360 NEXT P
3370 NEXT R
3400 PUT(97,2),TC,PSET
3410 PUT(97,98),BC,PSET
3420 VS=VS+1
3430 IF VS=3 THEN VS=1
3440 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
3450 NEXT L
3500 FOR R=FR TO 4
3510 RP(R)=RP(R)-1
3520 IF RP(R)=0 THEN RP(R)=32
3530 NEXT R
3540 GOTO 3800
3600 Z=RP(FR)-1
3610 IF Z=0 THEN Z=32
3620 X=PC(FR,1,1)
3630 Y=26
3700 FOR P=1 TO 3
3710 S=RL(FR,Z)
3720 ON S GOSUB 4000,4020,4040,4060,4100,4120,4140,4160,4200,4220,4240,4260,4300,4320,4340,4360,4380,4400,4420,4440
3730 Y=Y+24
3740 Z=Z+1
3750 IF Z=33 THEN Z=1
3760 NEXT P
3770 FR=FR+1
3780 GOTO 3200
3800 NEXT I
3810 Z=RP(4)-1
3820 IF Z=0 THEN Z=32
3830 X=PC(4,1,1)
3840 Y=26
3900 FOR P=1 TO 3
3910 S=RL(4,Z)
3920 ON S GOSUB 4000,4020,4040,4060,4100,4120,4140,4160,4200,4220,4240,4260,4300,4320,4340,4360,4380,4400,4420,4440
3930 Y=Y+24
3940 Z=Z+1
3950 IF Z=33 THEN Z=1
3960 NEXT P
3970 FR=1
3980 GOTO 5000
4000 PUT(X,Y),KG,PSET
4010 RETURN
4020 PUT(X,Y),QN,PSET
4030 RETURN
4040 PUT(X,Y),WZ,PSET
4050 RETURN
4060 PUT(X,Y),KT,PSET
4070 RETURN
4100 PUT(X,Y),DG,PSET
4110 RETURN
4120 PUT(X,Y),PS,PSET
4130 RETURN
4140 PUT(X,Y),CN,PSET
4150 RETURN
4160 PUT(X,Y),BK,PSET
4170 RETURN
4200 PUT(X,Y),SW,PSET
4210 RETURN
4220 PUT(X,Y),BW,PSET
4230 RETURN
4240 PUT(X,Y),AX,PSET
4250 RETURN
4260 PUT(X,Y),SH,PSET
4270 RETURN
4300 PUT(X,Y),CJ,PSET
4310 RETURN
4320 PUT(X,Y),CG,PSET
4330 RETURN
4340 PUT(X,Y),CC,PSET
4350 RETURN
4360 PUT(X,Y),CS,PSET
4370 RETURN
4380 PUT(X,Y),BR,PSET
4390 RETURN
4400 PUT(X,Y),BS,PSET
4410 RETURN
4420 PUT(X,Y),BH,PSET
4430 RETURN
4440 PUT(X,Y),BM,PSET
4450 RETURN
5000 FOR I=1 TO 4
5010 X=RP(I)
5020 SR(I)=RL(I,X)
5030 Y=SR(I)
5040 RG(I)=(INT((Y-1)/4))+1
5050 NEXT I
5060 FOR I=1 TO 4
5070 X=SR(I)
5080 FOR J=1 TO 4
5090 Y=SR(J)
5100 SI(I,J)=0
5110 IF X=Y THEN SI(I,J)=1
5120 NEXT J
5130 NEXT I
5140 FOR I=1 TO 5
5145 W(I)=0
5150 NEXT I
5160 FOR I=1 TO 4
5165 X=RG(I)
5170 W(X)=W(X)+1
5175 NEXT I
5200 WP=0
5208 REM FOUR SYMBOLS EACH IN A DIFFERENT GROUP EXCEPT BONUS
5210 Z=0
5220 FOR I=1 TO 4
5230 IF W(I)=1 THEN 5250
5240 Z=1
5250 NEXT I
5260 IF Z=1 THEN 5300
5270 WP=8
5280 LOCATE 23,2
5285 PRINT"1 SYMBOL IN EACH GROUP-NO BONUS"
5290 GOTO 7000
5298 REM FOUR OF A KIND
5300 IF SI(1,2)+SI(1,3)+SI(1,4)=3 THEN 5310 ELSE 5400
5310 X=SR(I)
5318 REM TEST FOR BONUS SYMBOL
5320 IF X>16 THEN 5350
5325 WP=FK(X)
5330 LOCATE 23,2
5335 PRINT"FOUR OF A KIND"
5340 GOTO 7000
5350 WP=FT(5,2)
5360 LOCATE 23,2
5365 PRINT"FOUR BONUS SYMBOLS"
5370 GOTO 7000
5398 REM THREE OF A KIND
5400 X=0
5405 Y=0
5410 Z=0
5420 FOR I=1 TO 4
5430 IF Z=1 THEN 5490
5440 IF SI(I,1)+SI(I,2)+SI(I,3)+SI(I,4)=3 THEN 5450 ELSE 5490
5450 Z=1
5458 REM X IS THREE OF A KIND AND Y IS OTHER SYMBOL
5460 FOR J=1 TO 4
5470 IF SI(I,J)=0 THEN Y=SR(J) ELSE X=SR(J)
5480 NEXT J
5490 NEXT I
5500 IF Z=0 THEN 5700
5508 REM TEST FOR FOUR BONUS SYMBOLS (3 IDENTICAL AND 1 DIFFERENT)
5510 IF X>16 AND Y>16 THEN 5520 ELSE 5550
5520 WP=FT(5,2)
5530 LOCATE 23,2
5535 PRINT"FOUR BONUS SYMBOLS"
5540 GOTO 7000
5548 REM TEST FOR THREE IDENTICAL BONUS SYMBOLS
5550 IF X>16 THEN 5560 ELSE 5590
5560 WP=FT(5,3)
5570 LOCATE 23,2
5575 PRINT"THREE BONUS SYMBOLS"
5580 GOTO 7000
5588 REM TEST FOR THREE IDENTICAL AND ONE BONUS SYMBOL
5590 IF Y>16 THEN 5600 ELSE 5630
5600 WP=TK(X,1)
5610 LOCATE 23,2
5615 PRINT"3 OF A KIND AND BONUS SYMBOL"
5620 GOTO 7000
5628 REM TEST FOR THREE IDENTICAL AND SYMBOL IN SAME GROUP
5630 Z=0
5635 FOR I=1 TO 4
5640 IF W(I)=4 THEN Z=1
5645 NEXT I
5650 IF Z=0 THEN 5675
5655 WP=TK(X,2)
5660 LOCATE 23,2
5665 PRINT"3 OF A KIND & 1 IN SAME GROUP"
5670 GOTO 7000
5673 REM (THREE OF A KIND)
5675 WP=TK(X,3)
5680 LOCATE 23,2
5685 PRINT"THREE OF A KIND
5690 GOTO 7000
5696 REM TWO PAIRS
5698 REM FIRST TWO AND LAST TWO REELS
5700 IF SI(1,2)=1 AND SI(3,4)=1 THEN 5710 ELSE 5900
5708 REM TEST FOR TWO PAIRS OF BONUS SYMBOLS
5710 IF RG(1)=5 AND RG(3)=5 THEN 5720 ELSE 5750
5720 WP=FT(5,1)
5730 LOCATE 23,2
5735 PRINT"TWO PAIRS OF BONUS SYMBOLS"
5740 GOTO 7000
5748 REM TEST FOR ONE PAIR OF BONUS SYMBOLS
5750 IF RG(1)=5 OR RG(3)=5 THEN 5760 ELSE 5790
5760 WP=27
5770 LOCATE 23,2
5775 PRINT"2 PAIRS-1 IS BONUS SYMBOLS"
5780 GOTO 7000
5788 REM TEST FOR TWO PAIRS IN THE SAME GROUP
5790 IF RG(1)=RG(3) THEN 5800 ELSE 5830
5800 X=RG(1)
5805 WP=FT(X,1)
5810 LOCATE 23,2
5815 PRINT"2 PAIRS IN THE SAME GROUP"
5820 GOTO 7000
5828 REM TWO PAIRS IN DIFFERENT GROUPS
5830 WP=20
5840 LOCATE 23,2
5845 PRINT"2 PAIRS IN DIFFERENT GROUPS"
5850 GOTO 7000
5898 REM REELS 1 AND 3 & 2 AND 4
5900 IF SI(1,3)=1 AND SI(2,4)=1 THEN 5910 ELSE 6100
5908 REM TEST FOR TWO PAIRS OF BONUS SYMBOLS
5910 IF RG(1)=5 AND RG(2)=5 THEN 5920 ELSE 5950
5920 WP=FT(5,1)
5930 LOCATE 23,2
5935 PRINT"2 PAIRS OF BONUS SYMBOLS"
5940 GOTO 7000
5948 REM TEST FOR ONE PAIR OF BONUS SYMBOLS
5950 IF RG(1)=5 OR RG(2)=5 THEN 5960 ELSE 5990
5960 WP=27
5970 LOCATE 23,2
5975 PRINT"2 PAIRS-1 IS BONUS SYMBOLS"
5980 GOTO 7000
5988 REM TEST FOR TWO PAIRS IN THE SAME GROUP
5990 IF RG(1)=RG(2) THEN 6000 ELSE 6030
6000 X=RG(1)
6005 WP=FT(X,1)
6010 LOCATE 23,2
6015 PRINT"2 PAIRS IN THE SAME GROUP"
6020 GOTO 7000
6028 REM TWO PAIRS IN DIFFERENT GROUPS
6030 WP=20
6040 LOCATE 23,2
6045 PRINT"2 PAIRS IN DIFFERENT GROUPS"
6050 GOTO 7000
6098 REM OUTER AND INNER REELS
6100 IF SI(1,4)=1 AND SI(2,3)=1 THEN 6110 ELSE 6300
6108 REM TEST FOR TWO PAIRS OF BONUS SYMBOLS
6110 IF RG(1)=5 AND RG(2)=5 THEN 6120 ELSE 6150
6120 WP=FT(5,1)
6130 LOCATE 23,2
6135 PRINT"2 PAIRS OF BONUS SYMBOLS"
6140 GOTO 7000
6148 REM TEST FOR ONE PAIR OF BONUS SYMBOLS
6150 IF RG(1)=5 OR RG(2)=5 THEN 6160 ELSE 6190
6160 WP=27
6170 LOCATE 23,2
6175 PRINT"2 PAIRS-1 IS BONUS SYMBOLS"
6180 GOTO 7000
6188 REM TEST FOR TWO PAIRS IN THE SAME GROUP
6190 IF RG(1)=RG(2) THEN 6200 ELSE 6230
6200 X=RG(1)
6205 WP=FT(X,1)
6210 LOCATE 23,2
6215 PRINT"2 PAIRS IN THE SAME GROUP"
6220 GOTO 7000
6228 REM TWO PAIRS IN DIFFERENT GROUPS
6230 WP=20
6240 LOCATE 23,2
6245 PRINT"2 PAIRS IN DIFFERENT GROUPS"
6250 GOTO 7000
6298 REM FOUR SYMBOLS IN THE SAME GROUP
6300 Z=0
6310 FOR I=1 TO 5
6320 IF W(I)=4 THEN Z=I
6330 NEXT I
6340 IF Z=0 THEN 6400
6350 WP=FT(Z,2)
6360 LOCATE 23,2
6370 PRINT"FOUR SYMBOLS IN THE SAME GROUP"
6380 GOTO 7000
6398 REM THREE SYMBOLS IN THE SAME GROUP
6400 Z=0
6405 FOR I=1 TO 5
6410 IF W(I)=3 THEN Z=I
6415 NEXT I
6420 IF Z=0 THEN 6500
6425 IF Z<5 THEN 6450
6430 WP=FT(Z,3)
6435 LOCATE 23,2
6440 PRINT"THREE BONUS SYMBOLS"
6445 GOTO 7000
6450 FS=1
6452 LOCATE 23,2
6454 PRINT"3 SYMBOLS IN SAME GROUP-FREE SPIN!"
6456 BEEP
6460 VS=VS+1
6462 IF VS=3 THEN VS=1
6464 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
6470 LOCATE 23,2
6472 PRINT"3 SYMBOLS IN SAME GROUP-FREE SPIN!"
6474 BEEP
6480 GOTO 2000
6496 REM ONE PAIR AND TWO DIFFERENT BONUS SYMBOLS
6498 REM ONE PAIR AND TWO IN ANOTHER GROUP
6500 Z=0
6510 FOR I=1 TO 5
6520 IF W(I)=2 THEN Z=Z+1
6530 NEXT I
6540 IF Z=2 THEN 6550 ELSE 6700
6550 Z=0
6555 X=0
6560 FOR I=1 TO 4
6570 FOR J=1 TO 4
6580 IF J=I THEN 6600
6590 IF SI(I,J)=1 THEN Z=1
6595 IF SI(I,J)=1 THEN X=SR(I)
6600 NEXT J
6610 NEXT I
6620 IF Z=0 THEN 6700
6628 REM TEST FOR PAIR AND TWO BONUS SYMBOLS
6630 IF X<17 AND W(5)=2 THEN 6640 ELSE 6670
6640 WP=15
6650 LOCATE 23,2
6655 PRINT"1 PAIR & 2 DIFFERENT BONUS SYMBOLS"
6660 GOTO 7000
6670 WP=10
6680 LOCATE 23,2
6685 PRINT"1 PAIR AND 2 IN ANOTHER GROUP"
6690 GOTO 7000
6698 REM TWO IN ONE GROUP AND TWO IN ANOTHER GROUP
6700 Z=0
6710 FOR I=1 TO 5
6720 IF W(I)=2 THEN Z=Z+1
6730 NEXT I
6740 IF Z=2 THEN 6750 ELSE 6800
6750 WP=6
6760 LOCATE 23,2
6770 PRINT"2 IN ONE GROUP & 2 IN ANOTHER"
6780 GOTO 7000
6796 REM HERO PROGRESSIVE
6798 REM ONE PAIR DRAGON,SWORD,CHEST-JEWELS,CHEST-GOLD BARS
6800 Z=0
6805 FOR I=1 TO 4
6810 FOR J=1 TO 4
6815 IF J=I THEN 6825
6817 IF SI(I,J)=1 AND SR(I)=13 THEN Z=1
6819 IF SI(I,J)=1 AND SR(I)=14 THEN Z=2
6821 IF SI(I,J)=1 AND SR(I)=15 THEN Z=3
6823 IF SI(I,J)=1 AND SR(I)=16 THEN Z=4
6825 NEXT J
6830 NEXT I
6835 IF Z=0 THEN 7000
6840 IF HP(Z)=0 THEN 6845 ELSE 6860
6845 HP(5)=HP(5)+1
6850 HP(Z)=1
6855 GOSUB 25000
6860 IF Z<3 THEN HP(6)=HP(6)+4
6862 IF Z>2 THEN HP(6)=HP(6)+2
6865 Y=0
6870 LOCATE 17,7
6872 PRINT"     "
6874 LOCATE 17,7
6876 PRINT HP(6)
6880 LOCATE 17,29
6882 PRINT"     "
6884 LOCATE 17,29
6886 PRINT HP(6)
6890 Y=Y+1
6895 IF Y=2 THEN 6920
6900 VS=VS+1
6905 IF VS=3 THEN VS=1
6910 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
6915 GOTO 6870
6920 IF HP(5)=4 THEN 6970
6922 BEEP
6923 LOCATE 23,2
6925 ON Z GOTO 6930,6940,6950,6960
6930 PRINT"ONE PAIR OF CHESTS-JEWELS!"
6935 GOTO 7000
6940 PRINT"ONE PAIR OF CHESTS-GOLD BARS!"
6945 GOTO 7000
6950 PRINT"1 PAIR OF CHESTS-GOLD&SILVER BARS!"
6955 GOTO 7000
6960 PRINT"ONE PAIR OF CHESTS-SILVER BARS!"
6965 GOTO 7000
6970 WP=HP(6)
6975 LOCATE 23,2
6980 PRINT"YOU GOT ALL THE CHESTS!"
6985 BEEP
6990 GOTO 7000
6998 REM PRINT WP AND CI
7000 CI=CI+WP
7005 IF WP>0 THEN BEEP
7010 LOCATE 17,18
7015 PRINT"     "
7020 COLOR 10
7025 LOCATE 17,18
7030 IF WP=0 THEN PRINT" 000 "
7035 IF WP>0 THEN PRINT WP
7040 COLOR 14
7050 LOCATE 19,18
7060 PRINT CI
7100 VS=VS+1
7110 IF VS=3 THEN VS=1
7120 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
7200 LOCATE 17,18
7205 PRINT"     "
7210 COLOR 10
7215 LOCATE 17,18
7220 IF WP=0 THEN PRINT" 000 "
7225 IF WP>0 THEN PRINT WP
7230 COLOR 14
7240 LOCATE 19,18
7250 PRINT CI
7300 GOTO 2000
20000 OPEN "R",#1,"MIDSYMBL",4
20010 FIELD #1,4 AS AE$
20020 FOR S=1 TO 20
20030 FOR E=0 TO 388
20040 GET #1
20050 ON S GOSUB 20200,20220,20240,20260,20280,20300,20320,20340,20360,20380,20400,20420,20440,20460,20480,20500,20520,20540,20560,20580
20060 NEXT E
20070 NEXT S
20100 FOR S=1 TO 2
20110 FOR E=0 TO 1540
20120 GET #1
20130 ON S GOSUB 20600,20620
20140 NEXT E
20150 NEXT S
20160 CLOSE #1
20170 RETURN
20200 KG(E)=CVS(AE$)
20210 RETURN
20220 QN(E)=CVS(AE$)
20230 RETURN
20240 WZ(E)=CVS(AE$)
20250 RETURN
20260 KT(E)=CVS(AE$)
20270 RETURN
20280 DG(E)=CVS(AE$)
20290 RETURN
20300 PS(E)=CVS(AE$)
20310 RETURN
20320 CN(E)=CVS(AE$)
20330 RETURN
20340 BK(E)=CVS(AE$)
20350 RETURN
20360 SW(E)=CVS(AE$)
20370 RETURN
20380 BW(E)=CVS(AE$)
20390 RETURN
20400 AX(E)=CVS(AE$)
20410 RETURN
20420 SH(E)=CVS(AE$)
20430 RETURN
20440 CJ(E)=CVS(AE$)
20450 RETURN
20460 CG(E)=CVS(AE$)
20470 RETURN
20480 CC(E)=CVS(AE$)
20490 RETURN
20500 CS(E)=CVS(AE$)
20510 RETURN
20520 BR(E)=CVS(AE$)
20530 RETURN
20540 BS(E)=CVS(AE$)
20550 RETURN
20560 BH(E)=CVS(AE$)
20570 RETURN
20580 BM(E)=CVS(AE$)
20590 RETURN
20600 TC(E)=CVS(AE$)
20610 RETURN
20620 BC(E)=CVS(AE$)
20630 RETURN
21000 FOR S=1 TO 32
21010 FOR R=1 TO 4
21020 READ RL(R,S)
21030 DATA 1,3,1,4
21040 DATA 5,17,5,17
21050 DATA 9,7,9,7
21060 DATA 13,13,13,13
21070 DATA 4,1,3,1
21080 DATA 17,5,17,5
21090 DATA 7,9,8,10
21100 DATA 15,15,15,15
21110 DATA 2,8,2,8
21120 DATA 6,19,6,19
21130 DATA 11,11,10,12
21140 DATA 14,14,14,14
21150 DATA 8,2,7,3
21160 DATA 19,6,19,6
21170 DATA 12,10,12,11
21180 DATA 16,16,16,16
21190 DATA 1,4,4,4
21200 DATA 5,18,5,18
21210 DATA 9,7,9,7
21220 DATA 13,13,13,13
21230 DATA 4,1,3,2
21240 DATA 18,5,18,9
21250 DATA 7,9,8,10
21260 DATA 15,15,15,15
21270 DATA 3,12,2,8
21280 DATA 10,20,6,20
21290 DATA 11,11,10,12
21300 DATA 14,14,14,14
21310 DATA 8,2,11,3
21320 DATA 20,6,20,6
21330 DATA 12,10,12,11
21340 DATA 16,16,16,16
21350 NEXT R
21360 NEXT S
21370 RETURN
22000 FOR R=1 TO 4
22010 X=65+(R*32)
22020 FOR L=1 TO 8
22030 Y=2+(L*3)
22040 PC(R,L,1)=X
22050 PC(R,L,2)=Y
22060 NEXT L
22070 NEXT R
22080 RETURN
23000 FOR I=1 TO 2
23010 IF I=2 THEN SCREEN 7,,2,1
23020 LINE(0,0)-(319,199),15,BF
23030 LINE(96,1)-(224,122),0,B
23040 PUT(97,2),TC,PSET
23050 PUT(97,98),BC,PSET
23060 LINE(128,26)-(128,97),0
23070 LINE(160,26)-(160,97),0
23080 LINE(192,26)-(192,97),0
23100 PUT(97,26),CS,PSET
23110 PUT(97,50),KG,PSET
23120 PUT(97,74),DG,PSET
23130 PUT(129,26),CJ,PSET
23140 PUT(129,50),KG,PSET
23150 PUT(129,74),DG,PSET
23160 PUT(161,26),CS,PSET
23170 PUT(161,50),KG,PSET
23180 PUT(161,74),DG,PSET
23190 PUT(193,26),CJ,PSET
23200 PUT(193,50),KG,PSET
23210 PUT(193,74),DG,PSET
23300 COLOR 10
23310 LOCATE 17,18
23320 PRINT" 000 "
23330 COLOR 14
23340 LOCATE 19,18
23350 PRINT" 300  "
23360 COLOR 9
23370 LOCATE 21,18
23380 PRINT" 000 "
23385 LOCATE 23,2
23390 PRINT"                                   "
23400 LINE(136,127)-(175,127),0
23410 LINE(136,143)-(183,143),0
23420 LINE(136,159)-(175,159),0
23430 LINE(8,175)-(287,175),0
23440 LINE(7,175)-(7,183),0
23600 NEXT I
23610 RETURN
24000 FOR I=1 TO 16
24010 READ FK(I)
24020 DATA 4000,3665,3335,3000
24030 DATA 1500,1465,1435,1400
24040 DATA 1300,1265,1235,1200
24050 DATA 700,665,635,600
24060 NEXT I
24100 FOR I=1 TO 16
24110 FOR J=1 TO 3
24120 READ TK(I,J)
24130 DATA 100,75,50
24140 DATA 96,72,48
24150 DATA 92,69,46
24160 DATA 88,66,44
24170 DATA 84,63,42
24180 DATA 80,60,40
24190 DATA 76,57,38
24200 DATA 72,54,36
24210 DATA 68,51,34
24220 DATA 64,48,32
24230 DATA 60,45,30
24240 DATA 56,42,28
24250 DATA 52,39,26
24260 DATA 48,36,24
24270 DATA 44,33,22
24280 DATA 40,30,20
24290 NEXT J
24300 NEXT I
24310 FOR I=1 TO 5
24320 FOR J=1 TO 3
24330 READ FT(I,J)
24340 DATA 100,60,3
24350 DATA 60,50,3
24360 DATA 50,40,3
24370 DATA 40,30,3
24380 DATA 120,100,20
24390 NEXT J
24400 NEXT I
24500 RETURN
24998 REM DRAW HERO PAIRS SPUN
25000 Y=0
25010 ON Z GOTO 25020,25050,25080,25110
25020 PUT(64,26),CJ,PSET
25030 PUT(226,26),CJ,PSET
25040 GOTO 25130
25050 PUT(64,50),CG,PSET
25060 PUT(226,50),CG,PSET
25070 GOTO 25130
25080 PUT(64,74),CC,PSET
25090 PUT(226,74),CC,PSET
25100 GOTO 25130
25110 PUT(64,98),CS,PSET
25120 PUT(226,98),CS,PSET
25130 Y=Y+1
25140 IF Y=2 THEN 25200
25150 VS=VS+1
25160 IF VS=3 THEN VS=1
25170 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
25180 GOTO 25010
25200 RETURN
25498 REM CLEAR HERO JACKPOT
25500 FOR I=1 TO 6
25510 HP(I)=0
25520 NEXT I
25600 Y=0
25610 LINE(64,26)-(94,49),15,BF
25620 LINE(226,26)-(256,49),15,BF
25630 LINE(64,50)-(94,73),15,BF
25640 LINE(226,50)-(256,73),15,BF
25650 LINE(64,74)-(94,97),15,BF
25660 LINE(226,74)-(256,97),15,BF
25670 LINE(64,98)-(94,121),15,BF
25680 LINE(226,98)-(256,121),15,BF
25700 LOCATE 17,7
25720 PRINT"     "
25730 LOCATE 17,29
25740 PRINT"     "
25750 Y=Y+1
25760 IF Y=2 THEN 25900
25770 VS=VS+1
25780 IF VS=3 THEN VS=1
25790 IF VS=1 THEN SCREEN 7,,2,1 ELSE SCREEN 7,,1,2
25800 GOTO 25610
25900 RETURN
30000 SCREEN 9
30010 COLOR 14,9
30111 REM WRITTEN BY ROCHE FAHLANEIGH
30112 REM FORT COLLINS,COLORADO
30113 REM ROCHE789 AT AOL DOT COM
31000 END
